home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)ti.d64 / tpug.boot.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  2KB  |  215 lines
  1. 1 REM(null)
  2. 2 REM(null)
  3. 3 REM(null)
  4. 4 REM(null)
  5. 5 REM(null)
  6. 6 REM(null)
  7. 7 REM(null)
  8. 8 REM(null)
  9. 9 REM(null)
  10. 10 PRINT"[147]":POKE53280,0:POKE53281,0
  11. 11 POKE808,234
  12. 12 REM(null)
  13. 13 REM(null)
  14. 14 REM(null)
  15. 15 PRINT""
  16. 16 REM(null)
  17. 17 REM(null)
  18. 18 REM(null)
  19. 19 REM(null)
  20. 20 PRINT"T P U G."
  21. 21 REM(null)
  22. 22 REM(null)
  23. 23 REM(null)
  24. 24 REM(null)
  25. 25 PRINT""
  26. 26 REM(null)
  27. 27 REM(null)
  28. 28 REM(null)
  29. 29 REM(null)
  30. 30 PRINT"  DEMO"
  31. 31 REM(null)
  32. 32 REM(null)
  33. 33 REM(null)
  34. 34 REM(null)
  35. 35 PRINT""
  36. 36 REM(null)
  37. 37 REM(null)
  38. 38 REM(null)
  39. 39 REM(null)
  40. 40 PRINT"    BY:"
  41. 41 REM(null)
  42. 42 REM(null)
  43. 43 REM(null)
  44. 44 REM(null)
  45. 45 PRINT"";
  46. 46 REM(null)
  47. 47 REM(null)
  48. 48 REM(null)
  49. 49 REM(null)
  50. 50 PRINT" C-TEAM[158] UN-INCORPORATED.(UNCOPYRIGHT)"
  51. 51 REM(null)
  52. 52 REM(null)
  53. 53 REM(null)
  54. 54 REM(null)
  55. 55 PRINT""
  56. 56 REM(null)
  57. 57 REM(null)
  58. 58 REM(null)
  59. 59 REM(null)
  60. 60 PRINT"[159]PRESS RETURN TO LOAD"
  61. 61 REM(null)
  62. 62 REM(null)
  63. 63 REM(null)
  64. 64 REM(null)
  65. 65 GETA$:IFA$<>CHR$(13)THEN65
  66. 66 REM(null)
  67. 67 REM(null)
  68. 68 REM(null)
  69. 69 REM(null)
  70. 70 REM(null)
  71. 71 REM(null)
  72. 72 REM(null)
  73. 73 REM(null)
  74. 74 REM(null)
  75. 75 REM(null)
  76. 76 REM(null)
  77. 77 REM(null)
  78. 78 REM(null)
  79. 79 REM(null)
  80. 80 REM(null)
  81. 81 REM(null)
  82. 82 REM(null)
  83. 83 REM(null)
  84. 84 REM(null)
  85. 85 REM(null)
  86. 86 REM(null)
  87. 87 REM(null)
  88. 88 REM(null)
  89. 89 REM(null)
  90. 90 REM(null)
  91. 91 REM(null)
  92. 92 REM(null)
  93. 93 REM(null)
  94. 94 REM(null)
  95. 95 REM(null)
  96. 96 REM(null)
  97. 97 REM(null)
  98. 98 REM(null)
  99. 99 REM(null)
  100. 100 REM(null)
  101. 101 REM(null)
  102. 102 REM(null)
  103. 103 REM(null)
  104. 104 REM(null)
  105. 105 REM(null)
  106. 106 REM(null)
  107. 107 REM(null)
  108. 108 REM(null)
  109. 109 REM(null)
  110. 110 REM(null)
  111. 111 REM(null)
  112. 112 REM(null)
  113. 113 REM(null)
  114. 114 REM(null)
  115. 115 REM(null)
  116. 116 REM(null)
  117. 117 REM(null)
  118. 118 REM(null)
  119. 119 REM(null)
  120. 120 REM(null)
  121. 121 REM(null)
  122. 122 REM(null)
  123. 123 REM(null)
  124. 124 REM(null)
  125. 125 REM(null)
  126. 126 REM(null)
  127. 127 REM(null)
  128. 128 REM(null)
  129. 129 REM(null)
  130. 130 REM(null)
  131. 131 REM(null)
  132. 132 REM(null)
  133. 133 REM(null)
  134. 134 REM(null)
  135. 135 REM(null)
  136. 136 REM(null)
  137. 137 REM(null)
  138. 138 REM(null)
  139. 139 REM(null)
  140. 140 REM(null)
  141. 141 REM(null)
  142. 142 REM(null)
  143. 143 REM(null)
  144. 144 REM(null)
  145. 145 REM(null)
  146. 146 REM(null)
  147. 147 REM(null)
  148. 148 REM(null)
  149. 149 REM(null)
  150. 150 REM(null)
  151. 151 REM(null)
  152. 152 REM(null)
  153. 153 REM(null)
  154. 154 REM(null)
  155. 155 REM(null)
  156. 156 REM(null)
  157. 157 REM(null)
  158. 158 REM(null)
  159. 159 REM(null)
  160. 160 REM(null)
  161. 161 REM(null)
  162. 162 REM(null)
  163. 163 REM(null)
  164. 164 REM(null)
  165. 165 REM(null)
  166. 166 REM(null)
  167. 167 REM(null)
  168. 168 REM(null)
  169. 169 REM(null)
  170. 170 REM(null)
  171. 171 REM(null)
  172. 172 REM(null)
  173. 173 REM(null)
  174. 174 REM(null)
  175. 175 REM(null)
  176. 176 REM(null)
  177. 177 REM(null)
  178. 178 REM(null)
  179. 179 REM(null)
  180. 180 REM(null)
  181. 181 REM(null)
  182. 182 REM(null)
  183. 183 REM(null)
  184. 184 REM(null)
  185. 185 REM(null)
  186. 186 REM(null)
  187. 187 REM(null)
  188. 188 REM(null)
  189. 189 REM(null)
  190. 190 REM(null)
  191. 191 REM(null)
  192. 192 REM(null)
  193. 193 REM(null)
  194. 194 REM(null)
  195. 195 REM(null)
  196. 196 REM(null)
  197. 197 REM(null)
  198. 198 REM(null)
  199. 199 REM(null)
  200. 200 REM(null)
  201. 201 REM(null)
  202. 202 REM(null)
  203. 203 REM(null)
  204. 204 REM(null)
  205. 205 REM(null)
  206. 206 REM(null)
  207. 207 REM(null)
  208. 208 REM(null)
  209. 209 REM(null)
  210. 210 REM(null)
  211. 299 CLR
  212. 300 PRINT"[146][147][144]LOAD"CHR$(34)"TPUG.MAIN"CHR$(34)",8"
  213. 310 PRINT"":PRINT"NOW LOADING TPUG DEMO....[144]"
  214. 320 PRINT"":POKE198,4:POKE631,13:POKE632,82:POKE633,213:POKE634,13:END
  215.